3 .
   4 .
   6 clear 
   7 &(9)=84;&(0)=1;&(1)=1;&(2)=7;FC=82;BC=172
   8 Q=0;W=0
   9 NT=0
  10 box -8,24,1,32,1
  20 box -18, 8,20,1,1
  30 box -28,0,1,16,1
  40 box -18,-8,20,1,1
  50 box -8,-24,1,32,1
  60 line -8,8,4
  70 line -70,24,1
  80 line -28,8,4
  90 line -70,12,1
 100 line -28,-8,4
 110 line -70,-12,1
 120 line -8,-8,4
 130 line -70,-24,1
 131 for L=1to 51
 132 box rnd (80),rnd (88)-44,1,1,1
 133 next L
 134 CX=-70;CY=35;NT=0
 135 print "X-WING",#3,W
 136 CX=20;CY=35
 137 print "TIE FIE",#3,Q
 140 X=X+JX(1)mul 12
 150 Y=Y+JY(1)mul 12
 160 box X,Y,3,3,3
 170 line X-5,Y+5,4
 180 line X+5,Y-5,3
 190 line X+5,Y+5,4
 200 line X-5,Y-5,3
 210 box X,Y,3,3,3
 220 line X-5,Y+5,4
 230 line X+5,Y-5,3
 240 line X+5,Y+5,4
 250 line X-5,Y-5,3
 260 R=R+JX(2)mul 12
 270 S=S+JY(2)mul 12
 280 box R,S,3,3,3
 290 box R,S-3,11,1,3
 300 box R,S+3,11,1,3
 310 box R,S,3,3,3
 320 box R,S-3,11,1,3
 330 box R,S+3,11,1,3
 340 if TR(1)=0if TR(2)=0goto 134
 350 if TR(1)=1if TR(2)=0gosub 398
 360 if TR(2)=1if TR(1)=0gosub 498
 370 if TR(1)=1if TR(2)=1gosub 398;gosub 498
 380 goto 134
 398 N=1;NT=1
 399 if Y>S-3if Y<S+3N=15;W=W+1
 400 for A=1to N
 401 box X+3,Y, 6,1,3;box X+3,Y,6,1,3
 402 MU="4"
 403 BC=Amul 8
 404 next A
 405 FC=7
 406 BC=8
 407 return 
 498 M=1;NT=1
 499 if S>Y-3if S<Y+3M=15;Q=Q+1
 500 for B=1to M
 501 box R-2,S,6,1,3;box R-2,S,6,1,3
 502 MU="7"
 503 BC=Bmul 8
 504 next B
 505 FC=7
 506 BC=8
 507 return